object fCorrecoes: TfCorrecoes
  Left = 194
  Top = 186
  Width = 453
  Height = 220
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object FlatGauge1: TFlatGauge
    Left = 32
    Top = 120
    Width = 393
    Height = 25
    AdvColorBorder = 0
    ColorBorder = 8623776
    Progress = 0
  end
  object Label1: TLabel
    Left = 32
    Top = 104
    Width = 9
    Height = 13
    Caption = '...'
  end
  object BitBtn1: TBitBtn
    Left = 40
    Top = 40
    Width = 369
    Height = 33
    Caption = 'CORRIGE O VALOR DO ALUGUEL NA TABELA IMOVEL_ALUGUEL'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object dst_Lista_alugueis: TSQLDataSet
    CommandText = 'select max(VALOR_ALUGUEL) from ALUGUEIS '#13#10'where COD_IMALU= :pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 160
    Top = 64
    object dst_Lista_alugueisMAX: TFloatField
      FieldName = 'MAX'
      ReadOnly = True
    end
  end
  object dsp_L_alugueis: TDataSetProvider
    DataSet = dst_Lista_alugueis
    UpdateMode = upWhereKeyOnly
    Left = 192
    Top = 64
  end
  object cds_l_alugueis: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_L_alugueis'
    Left = 224
    Top = 64
    object cds_l_alugueisMAX: TFloatField
      FieldName = 'MAX'
      ReadOnly = True
    end
  end
  object dst_imo_aluguel: TSQLDataSet
    CommandText = 
      'select ima.*, cep.rua, pro.NOME_PROPRIETARIO, inc.NOME_INQUILINO' +
      ', '#13#10'fun.NOME '#13#10'from IMOVEL_ALUGUEL ima '#13#10'left outer join CEP cep' +
      ' on '#13#10'cep.COD_CEP=ima.COD_ENDERECO '#13#10'left outer join PROPRIETARI' +
      'OS pro on '#13#10'pro.COD_PROPRIETARIO = ima.COD_PROPRIETARIO '#13#10'left o' +
      'uter join INQUILINOS inc on '#13#10'inc.COD_INQUILINO = ima.COD_INQUIL' +
      'INO '#13#10'left outer join FUNCIONARIOS fun on '#13#10'fun.COD_FUNCIONARIO ' +
      '= ima.COD_FUNCIONARIO '#13#10'where COD_IMALU = :Pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 160
    Top = 98
    object dst_imo_aluguelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_imo_aluguelIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_aluguelTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_aluguelMATRICULA: TStringField
      FieldName = 'MATRICULA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_aluguelDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelDETALHES: TStringField
      FieldName = 'DETALHES'
      ProviderFlags = [pfInUpdate]
      Size = 150
    end
    object dst_imo_aluguelVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelVALOR_EXTENCO: TStringField
      FieldName = 'VALOR_EXTENCO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_imo_aluguelALUGADO: TStringField
      FieldName = 'ALUGADO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object dst_imo_aluguelMESES: TStringField
      FieldName = 'MESES'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_imo_aluguelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_imo_aluguelCARENCIA: TStringField
      FieldName = 'CARENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_imo_aluguelDATA_AQUIZICAO: TStringField
      FieldName = 'DATA_AQUIZICAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelDATA_LOCACAO: TStringField
      FieldName = 'DATA_LOCACAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelDATA_VCONTRATO: TStringField
      FieldName = 'DATA_VCONTRATO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object dst_imo_aluguelCOMISSAO_IMOBILIARIA: TFloatField
      FieldName = 'COMISSAO_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object dst_imo_aluguelNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      Size = 60
    end
    object dst_imo_aluguelNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = []
      Size = 60
    end
    object dst_imo_aluguelNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 50
    end
    object dst_imo_aluguelCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelDATA_LOCA: TDateField
      FieldName = 'DATA_LOCA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelDATA_VCONT: TDateField
      FieldName = 'DATA_VCONT'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelATIVO: TStringField
      FieldName = 'ATIVO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_imo_aluguelPORCENTUAL: TFloatField
      FieldName = 'PORCENTUAL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelTAXA_ADM: TFloatField
      FieldName = 'TAXA_ADM'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelMETRAGEM: TStringField
      FieldName = 'METRAGEM'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_imo_aluguelCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_imo_aluguelCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
  end
  object dsp_imo_aluguel: TDataSetProvider
    DataSet = dst_imo_aluguel
    UpdateMode = upWhereKeyOnly
    Left = 192
    Top = 98
  end
  object cds_imo_aluguel: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_imo_aluguel'
    Left = 225
    Top = 98
    object cds_imo_aluguelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object cds_imo_aluguelIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_aluguelTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_aluguelMATRICULA: TStringField
      FieldName = 'MATRICULA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_aluguelDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_imo_aluguelDETALHES: TStringField
      FieldName = 'DETALHES'
      ProviderFlags = [pfInUpdate]
      Size = 150
    end
    object cds_imo_aluguelVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_imo_aluguelVALOR_EXTENCO: TStringField
      FieldName = 'VALOR_EXTENCO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_imo_aluguelALUGADO: TStringField
      FieldName = 'ALUGADO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_imo_aluguelMESES: TStringField
      FieldName = 'MESES'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_imo_aluguelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_imo_aluguelCARENCIA: TStringField
      FieldName = 'CARENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_imo_aluguelDATA_AQUIZICAO: TStringField
      FieldName = 'DATA_AQUIZICAO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
      Size = 10
    end
    object cds_imo_aluguelDATA_LOCACAO: TStringField
      FieldName = 'DATA_LOCACAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_imo_aluguelDATA_VCONTRATO: TStringField
      FieldName = 'DATA_VCONTRATO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_imo_aluguelN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object cds_imo_aluguelCOMISSAO_IMOBILIARIA: TFloatField
      FieldName = 'COMISSAO_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object cds_imo_aluguelNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      Size = 60
    end
    object cds_imo_aluguelNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = []
      Size = 60
    end
    object cds_imo_aluguelNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 50
    end
    object cds_imo_aluguelCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_imo_aluguelDATA_LOCA: TDateField
      FieldName = 'DATA_LOCA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelDATA_VCONT: TDateField
      FieldName = 'DATA_VCONT'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelATIVO: TStringField
      FieldName = 'ATIVO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_imo_aluguelPORCENTUAL: TFloatField
      FieldName = 'PORCENTUAL'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelTAXA_ADM: TFloatField
      FieldName = 'TAXA_ADM'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_imo_aluguelMETRAGEM: TStringField
      FieldName = 'METRAGEM'
      Size = 10
    end
    object cds_imo_aluguelBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_imo_aluguelCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_imo_aluguelCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_imo_aluguelUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
  end
  object sds: TSQLDataSet
    CommandText = 'select * from IMOVEL_ALUGUEL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 288
    Top = 88
    object sdsCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      Required = True
    end
    object sdsIMOVEL: TStringField
      FieldName = 'IMOVEL'
      Size = 15
    end
    object sdsTIPO: TStringField
      FieldName = 'TIPO'
    end
    object sdsCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object sdsCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
    object sdsCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
    end
    object sdsCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
    end
    object sdsNR: TStringField
      FieldName = 'NR'
      Size = 5
    end
    object sdsCOMPL: TStringField
      FieldName = 'COMPL'
      Size = 15
    end
    object sdsMATRICULA: TStringField
      FieldName = 'MATRICULA'
      Size = 15
    end
    object sdsDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
    end
    object sdsDETALHES: TStringField
      FieldName = 'DETALHES'
      Size = 150
    end
    object sdsVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
    end
    object sdsVALOR_EXTENCO: TStringField
      FieldName = 'VALOR_EXTENCO'
      Size = 40
    end
    object sdsALUGADO: TStringField
      FieldName = 'ALUGADO'
      Size = 1
    end
    object sdsMESES: TStringField
      FieldName = 'MESES'
      Size = 2
    end
    object sdsDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      Size = 2
    end
    object sdsCARENCIA: TStringField
      FieldName = 'CARENCIA'
      Size = 2
    end
    object sdsDATA_AQUIZICAO: TStringField
      FieldName = 'DATA_AQUIZICAO'
      Size = 10
    end
    object sdsDATA_LOCACAO: TStringField
      FieldName = 'DATA_LOCACAO'
      Size = 10
    end
    object sdsDATA_VCONTRATO: TStringField
      FieldName = 'DATA_VCONTRATO'
      Size = 10
    end
    object sdsN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      Size = 5
    end
    object sdsN_SALAS: TStringField
      FieldName = 'N_SALAS'
      Size = 5
    end
    object sdsN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      Size = 5
    end
    object sdsN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      Size = 5
    end
    object sdsOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object sdsCOMISSAO_IMOBILIARIA: TFloatField
      FieldName = 'COMISSAO_IMOBILIARIA'
    end
    object sdsCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      Size = 10
    end
    object sdsDATA_LOCA: TDateField
      FieldName = 'DATA_LOCA'
    end
    object sdsDATA_VCONT: TDateField
      FieldName = 'DATA_VCONT'
    end
    object sdsATIVO: TStringField
      FieldName = 'ATIVO'
      FixedChar = True
      Size = 1
    end
    object sdsPORCENTUAL: TFloatField
      FieldName = 'PORCENTUAL'
    end
    object sdsTAXA_ADM: TFloatField
      FieldName = 'TAXA_ADM'
    end
    object sdsMETRAGEM: TStringField
      FieldName = 'METRAGEM'
      Size = 10
    end
    object sdsBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 80
    end
    object sdsCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 80
    end
    object sdsCEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object sdsUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
  end
  object EvExtenso1: TEvExtenso
    Currency.Strings = (
      'real'
      'reais'
      'centavo'
      'centavos')
    Left = 280
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = cds_l_alugueis
    Left = 256
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = cds_imo_aluguel
    Left = 256
    Top = 96
  end
end
